home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jaz_clib.arc / JZCLRWND.C < prev    next >
Text File  |  1989-04-09  |  653b  |  26 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzclrwnd                                     │
  4. │Change the color of a window                             │
  5. │                                         │
  6. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950              │
  7. └────────────────────────────────────────────────────────────────────────────┘
  8. */
  9.  
  10. #include <jaz.h>
  11. #include <jzscreen.h>
  12. jzclrwnd(fptr,fattr)
  13. TWINDOW *fptr;
  14. int fattr;
  15. {
  16.   unsigned int scrseg;
  17.  
  18.   if (MEMB(0x40,0x49) == 7) scrseg = 0xb000;
  19.   else scrseg = 0xb800;
  20.  
  21.   moveattr(scrseg,fptr->row1 * 160 + (fptr->col1 << 1),
  22.        fptr->row2 - fptr->row1 + 1,
  23.        fptr->col2 - fptr->col1 + 1,fattr);
  24. }
  25.  
  26.